home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / QuickTime VR / MacOS / QuickDraw™ 3D 1.0.6F4 SDK / Samples / SampleCode / SimpleViewer / SimpleViewer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-02-20  |  26.7 KB  |  1,094 lines  |  [TEXT/MPCC]
  1. //--------------------------------------------------------------------------------------------
  2. // simple viewer application 
  3. // DEVELOPER SUPPORT May 95
  4. //
  5. // This is a simple viewer application, that illustrates a minimal, but
  6. // functionally complete viewer application.
  7. //
  8. // Nick Thompson, Developer Support, Apple Computer (DEVSUPPORT),
  9. // ©1995, Apple Computer Inc., All Rights Reserved
  10.  
  11. #include <AppleEvents.h>
  12. #include <menus.h>
  13. #include <PictUtil.h>
  14. #include <QDOffScreen.h>
  15. #include <Errors.h>
  16.  
  17. #include "QD3DViewer.h"
  18.  
  19. //--------------------------------------------------------------------------------------------
  20. //
  21. const int    kWindowWidth = 220 ;
  22. const int    kWindowHeight = 150 ;
  23.  
  24. //--------------------------------------------------------------------------------------------
  25. //
  26. #define HiWrd(aLong)    (((aLong) >> 16) & 0xFFFF)
  27. #define LoWrd(aLong)    ((aLong) & 0xFFFF)
  28.  
  29.     
  30.  
  31. //--------------------------------------------------------------------------------------------
  32. // menu id's
  33. enum {
  34.     mApple = 128,
  35.     mFile,
  36.     mEdit
  37. } ;
  38.  
  39. //--------------------------------------------------------------------------------------------
  40. // command id's, Apple menu
  41. enum {
  42.     iAbout = 1
  43. } ;
  44.  
  45. //--------------------------------------------------------------------------------------------
  46. // command id's, File menu
  47. enum {
  48.     iNew = 1,
  49.     iOpen,
  50.     iUnused1,
  51.     iClose,
  52.     iSave,
  53.     iSaveAs,
  54.     iRevert,
  55.     iUnused2,
  56.     iQuit
  57. } ;
  58.  
  59. //--------------------------------------------------------------------------------------------
  60. // command id's, Edit menu
  61. enum {
  62.     iUndo = 1,
  63.     iUnused3,
  64.     iCut,
  65.     iCopy,
  66.     iPaste,
  67.     iClear
  68. } ;
  69.  
  70. //--------------------------------------------------------------------------------------------
  71. // static control variables
  72.  
  73. static Boolean gQuitFlag = false ;                // we ain't quittin yet
  74. static Point gStaggerPos = {50,50} ;            // start opening staggered windows at this point
  75. static AEAddressDesc    gSelfAddress;            // A self-addressed address descriptor record
  76. static ProcessSerialNumber    gSelfPSN;            // This application's psn
  77.  
  78. //--------------------------------------------------------------------------------------------
  79. // function prototypes
  80.  
  81. Boolean SupportsQuickDraw3D(void) ;
  82. Boolean     SupportsQuickDraw3DViewer(void) ;
  83. void         InitToolbox( void ) ;
  84. void        FailIfErr(OSErr something ) ;
  85. void         MainEventLoop( void ) ;
  86. void         HandleKeyPress( EventRecord *event ) ;
  87. Boolean        HandleEvent( EventRecord *theEvent ) ;
  88. void         HandleMenuCommand( long menuResult ) ;
  89. void         MyAdjustMenus( void ) ;
  90. OSErr        MyDisposeViewerWindow( WindowPtr theWindow ) ;
  91. CGrafPtr     MyCreateViewerWindow( void ) ;
  92.  
  93. //-- AppleEvent Related
  94.  
  95. Boolean SupportsAEVT(void) ;
  96. void RegisterMyEvents(void) ;
  97. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  98. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  99. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  100. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  101. void DoAppOpenCommand( void ) ;
  102. void MySendQuitApp( void ) ;
  103. void MySendOpenDoc(FSSpec *myFSSpec) ;
  104.  
  105. //--------------------------------------------------------------------------------------------
  106. // Constants
  107.  
  108. const RGBColor    kRGBBlack = { 0x0000, 0x0000, 0x0000 } ;
  109. const RGBColor    kRGBWhite = { 0xFFFF, 0xFFFF, 0xFFFF } ;
  110. const int         kMyAboutDialogID = 128 ;
  111. const int         kMyFatalDialogID = 129 ;
  112. const int        kQD3DAlertID = 27309 ;
  113. //--------------------------------------------------------------------------------------------
  114. // Types
  115. typedef struct _viewerData {
  116.     TQ3ViewerObject        theViewer ;
  117.     FSSpec                theFile ;
  118.     Boolean                isFileValid ;
  119. } ViewerData, *ViewerDataPtr, **ViewerDataHandle ;
  120.  
  121. //--------------------------------------------------------------------------------------------
  122. //
  123. //
  124.  
  125. void main()
  126. {
  127.     MoreMasters(); MoreMasters() ; MoreMasters() ;
  128.     MaxApplZone() ;            // Maximise the heap - the viewer requires at least 32k
  129.     InitToolbox() ;
  130.  
  131.     // WE DON'T CHECK FOR 68K machine.
  132.     // Instead I use the NotPPC.rsrc resource file.  This is a file with a 68k CODE 0
  133.     // and CODE 1 resource that puts up a dialog that says "this app only runs on a power
  134.     // macintosh computer.
  135.     
  136.     if( SupportsAEVT() && SupportsQuickDraw3D() && SupportsQuickDraw3DViewer()) {
  137.         // AppleEvent stuff:
  138.         // Set up the self-addressed descriptor record.
  139.          gSelfPSN.highLongOfPSN = 0;
  140.          gSelfPSN.lowLongOfPSN = kCurrentProcess;        //* Use this instead of GetCurrentProcess *//
  141.          FailIfErr(AECreateDesc(typeProcessSerialNumber,(Ptr)&gSelfPSN,sizeof(ProcessSerialNumber),&gSelfAddress));
  142.  
  143.         RegisterMyEvents() ;    // register the appleevents for this app
  144.  
  145.         MainEventLoop() ;        // Handle events 'til we die
  146.     } 
  147.     else {
  148.         Str255 theString ;
  149.         GetIndString(theString,kQD3DAlertID,3);
  150.         ParamText( theString, 0L,  0L,  0L ) ;
  151.         (void)Alert(kQD3DAlertID,nil);
  152.     }
  153. }
  154. //---------------------------------------------------------------------
  155.  
  156. Boolean SupportsQuickDraw3D(void) 
  157. {
  158.     OSErr err;
  159.     long response;
  160.         
  161.     err = Gestalt(gestaltQD3D,&response);
  162.     if (err!=noErr)
  163.         return false;
  164.         
  165.     return (response && (response << gestaltQD3DAvailable));
  166. }
  167.  
  168. //---------------------------------------------------------------------
  169.  
  170. Boolean SupportsQuickDraw3DViewer(void) 
  171. {
  172.     OSErr err;
  173.     long response;
  174.         
  175.     err = Gestalt( gestaltQD3DViewer,&response );
  176.     if (err!=noErr)
  177.         return false;
  178.         
  179.     return (response && ( response << gestaltQD3DViewerAvailable ));
  180. }
  181.  
  182. //--------------------------------------------------------------------------------------------
  183. //
  184. //
  185. void FailIfErr( OSErr something )
  186. { 
  187.     OSErr myErr ; 
  188.     if(( myErr = something) != noErr ) { 
  189.         ModalFilterUPP         theProc ;
  190.         DialogPtr            theDialog ; 
  191.         short                itemHit ;
  192.         Str255                theError ;
  193.         
  194.         NumToString(something,theError);
  195.     
  196.         theDialog = GetNewDialog ( kMyFatalDialogID, nil, (WindowPtr)-1 );
  197.         
  198.         // these two lil' snappers are system 7 only
  199.         // so if you use them, check before!!
  200.         // in this app we will only run on Power
  201.         // Macintosh, so we don't check
  202.         
  203.         GetStdFilterProc( &theProc ) ;
  204.         SetDialogDefaultItem(theDialog, ok) ;
  205.         
  206.         ParamText( theError, 0L, 0L, 0L ) ;
  207.         
  208.         // put the dialog up and loop 'til
  209.         // the user hits the OK button
  210.  
  211.         do {
  212.             ModalDialog ( theProc, &itemHit );
  213.         } while( itemHit != ok ) ;
  214.         
  215.         DisposeDialog ( theDialog );
  216.         
  217.         ExitToShell() ; 
  218.     } 
  219. } 
  220.  
  221. //--------------------------------------------------------------------------------------------
  222. //
  223. //
  224.  
  225. void InitToolbox()
  226. {
  227.     Handle        menuBar = nil;
  228.  
  229.  
  230.     InitGraf((Ptr) &qd.thePort);
  231.     InitFonts();
  232.     InitWindows();
  233.     InitMenus();
  234.     TEInit();
  235.     InitDialogs((long)nil);
  236.     InitCursor();
  237.  
  238.     // initialize application globals
  239.     
  240.     gQuitFlag = false;
  241.     
  242.     
  243.     menuBar = GetNewMBar(128);                // Read menus into menu bar, MBAR res id is 128
  244.     
  245.     if ( menuBar == nil )
  246.          ExitToShell();                        // if we dont have it then quit - your app 
  247.                                              // needs a dialog here
  248.  
  249.     SetMenuBar(menuBar);                    // Install menus
  250.     DisposeHandle(menuBar);
  251.     
  252.     AppendResMenu(GetMenuHandle(mApple), 'DRVR');    // Add DA names to Apple menu, ID 128
  253.  
  254.     MyAdjustMenus() ;
  255.     DrawMenuBar();
  256. }
  257.  
  258.  
  259. //--------------------------------------------------------------------------------------------
  260. //
  261. //
  262. void MainEventLoop()
  263. {
  264.     EventRecord         event;
  265.     WindowPtr           theWindow;
  266.     Boolean                wasViewerEvent ;
  267.     GrafPtr             savedPort ;
  268.     Point                localPt ;
  269.     TQ3ViewerObject     theViewer ;
  270.     ViewerDataHandle    myData ;
  271.  
  272.     MyAdjustMenus() ;
  273.     while( !gQuitFlag )
  274.     {
  275.         if (WaitNextEvent( everyEvent, &event, 0, nil ))
  276.         {
  277.             
  278.             if((theWindow = FrontWindow()) != nil ) {
  279.             
  280.                 myData = (ViewerDataHandle)GetWRefCon(theWindow);
  281.                 theViewer = (**myData).theViewer;
  282.             }
  283.             
  284.             if( theViewer ) {
  285.                 GetPort( &savedPort ) ;
  286.                 SetPort( (GrafPtr)theWindow ) ;
  287.                 GetMouse(&localPt);
  288.                 if (!Q3ViewerAdjustCursor(theViewer, &localPt))
  289.                     InitCursor();
  290.                 wasViewerEvent = Q3ViewerEvent ( theViewer, &event );
  291.                 SetPort( savedPort ) ;
  292.             }
  293.             else
  294.                 wasViewerEvent = false ;
  295.             
  296.             // was it a viewer event????
  297.             if( !wasViewerEvent )
  298.                 HandleEvent( &event );
  299.         }
  300.     }
  301. }
  302.  
  303. //----------------------------------------------------------------------------------
  304. //    HandleActivateWindow is called when an event is received that reports that
  305. //    a window is being either activated or deactivated.
  306.  
  307. static void HandleActivateWindow(WindowPtr theWindow, short activate)
  308. {
  309.     if (theWindow) {
  310.         if (activate) {
  311.         
  312.             // do whatever else you'd like to do for a activate event
  313.             LoadScrap() ;
  314.  
  315.         } else {
  316.         
  317.             // do whatever you'd like to do for a deactivate event
  318.             UnloadScrap() ;
  319.         }
  320.     }
  321. }
  322.  
  323. //--------------------------------------------------------------------------------------------
  324. //
  325. //
  326. Boolean        HandleEvent( EventRecord *theEvent )
  327. {
  328.     short               thePart;
  329.     WindowPtr            theWindow ;
  330.     Rect                screenRect;
  331.     GrafPtr                oldPort ;
  332.     Point                aPoint = {100, 100};
  333.     TQ3ViewerObject     theViewer ;
  334.     ViewerDataHandle    myData ;
  335.     
  336.     switch (theEvent->what) {
  337.         case mouseDown:
  338.         
  339.             thePart = FindWindow( theEvent->where, &theWindow );
  340.             
  341.             switch( thePart ) {
  342.                 case inMenuBar: 
  343.                     MyAdjustMenus() ;
  344.                     HandleMenuCommand(MenuSelect(theEvent->where));
  345.                     break;
  346.                 
  347.                 case inDrag:
  348.                     screenRect = (**GetGrayRgn()).rgnBBox;
  349.                     DragWindow( theWindow, theEvent->where, &screenRect );
  350.                     break ;
  351.             
  352.                 case inContent:
  353.                     if (theWindow != FrontWindow())
  354.                         SelectWindow( theWindow );
  355.                     break ;
  356.             
  357.                 case inGoAway:
  358.                     if (TrackGoAway( theWindow, theEvent->where )) {
  359.                         MyDisposeViewerWindow( theWindow ) ;
  360.                     }
  361.                     break ;
  362.                     
  363.                 default:
  364.                     break ;
  365.             }
  366.             break ;
  367.                     
  368.                 
  369.         case updateEvt:
  370.         
  371.             theWindow = (WindowPtr)theEvent->message;
  372.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  373.             theViewer = (**myData).theViewer ;
  374.             
  375.             GetPort(&oldPort ) ;    
  376.             SetPort( theWindow );
  377.             
  378.             BeginUpdate( theWindow );
  379.             Q3ViewerDraw( theViewer ) ;
  380.             EndUpdate( theWindow );
  381.             
  382.             SetPort( oldPort ) ;
  383.             
  384.             break ;
  385.             
  386.         case keyDown:
  387.         case autoKey:
  388.             HandleKeyPress(theEvent);
  389.             break;
  390.             
  391.         case diskEvt:
  392.             if ( HiWrd(theEvent->message) != noErr ) 
  393.                 (void) DIBadMount(aPoint, theEvent->message);
  394.             break;
  395.             
  396.         case osEvt:
  397.             break ;
  398.         case activateEvt:
  399.             if ((theWindow = (WindowPtr) theEvent->message) != nil) {
  400.                 HandleActivateWindow(theWindow, (theEvent->modifiers & activeFlag));
  401.             }
  402.  
  403.             break;
  404.  
  405.         case kHighLevelEvent:                        // Let the Apple Event Manager handle high level event.
  406.             AEProcessAppleEvent(theEvent);
  407.             break;
  408.  
  409.     }
  410.     return true ;
  411. }
  412.  
  413.  
  414. //--------------------------------------------------------------------------------------------
  415. //
  416. //
  417. void HandleKeyPress(EventRecord *event)
  418. {
  419.     char    key;
  420.  
  421.     key = event->message & charCodeMask;
  422.     
  423.     // just check to see if we want to quit...
  424.     
  425.     if ( event->modifiers & cmdKey ) {        /* Command key down? */
  426.         HandleMenuCommand(MenuKey(key));
  427.     } 
  428. }
  429.  
  430. //--------------------------------------------------------------------------------------------
  431. //
  432. //
  433.  
  434. static void HandleAboutApp( void )
  435. {
  436.     ModalFilterUPP         theProc ;
  437.     DialogPtr            theDialog ; 
  438.     short                itemHit ;
  439.  
  440.     theDialog = GetNewDialog ( kMyAboutDialogID, nil, (WindowPtr)-1 );
  441.     
  442.     // these two lil' snappers are system 7 only
  443.     // so if you use them, check before!!
  444.     // in this app we will only run on Power
  445.     // Macintosh, so we don't check
  446.     
  447.     GetStdFilterProc( &theProc ) ;
  448.     SetDialogDefaultItem(theDialog, ok) ;
  449.     
  450.     // put the dialog up and loop 'til
  451.     // the user hits the OK button
  452.     
  453.     do {
  454.         ModalDialog ( theProc, &itemHit );
  455.     } while( itemHit != ok ) ;
  456.     
  457.     DisposeDialog ( theDialog );
  458. }
  459.  
  460. //--------------------------------------------------------------------------------------------
  461. //
  462. //
  463. static OSErr HandleOpenDoc(FSSpec *theFile)
  464. {
  465.     OSErr                err ;
  466.     short                theRef ;
  467.     ViewerDataHandle    myData ;
  468.     TQ3ViewerObject     theViewer ;
  469.     WindowPtr            theWindow ;
  470.  
  471.     // display the contents
  472.     theWindow = (WindowPtr)MyCreateViewerWindow() ;
  473.     
  474.     // open the file
  475.     err = FSpOpenDF( theFile, fsRdPerm, &theRef ) ;
  476.     if (err == noErr)
  477.     {
  478.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  479.         theViewer = (**myData).theViewer ;
  480.         (**myData).theFile = *theFile ;
  481.         (**myData).isFileValid = true ;
  482.         Q3ViewerUseFile(theViewer, theRef) ;
  483.         err = FSClose(theRef) ;
  484.     }
  485.     
  486.     // set the window title
  487.     SetWTitle( theWindow, theFile->name );
  488.     MyAdjustMenus() ;
  489.     return err ;
  490. }
  491.  
  492.  
  493. //--------------------------------------------------------------------------------------------
  494. //
  495. //
  496. void HandleMenuCommand(long menuResult)
  497. {
  498.     short                menuID;
  499.     short                menuItem;
  500.     Str255                daName;
  501.     
  502.  
  503.     short                numTypes = 2 ;
  504.     SFTypeList            myTypes = { '3DMF', 'TEXT', 0 } ;
  505.     OSErr                err ;
  506.     short                theRef ;
  507.     
  508.     ViewerDataHandle    myData ;
  509.     TQ3ViewerObject     theViewer ;
  510.     WindowPtr            theWindow ;
  511.     GrafPtr                savedPort ;
  512.     
  513.     FSSpec                theFile ;
  514.         
  515.     StandardFileReply    theSFReply ;
  516.  
  517.     menuID = HiWrd(menuResult);
  518.     menuItem = LoWrd(menuResult);
  519.     
  520.     switch ( menuID ) {
  521.         //
  522.         //--------------------------------------------------------------------------    
  523.         //
  524.         case mApple:
  525.             switch ( menuItem ) {
  526.  
  527.                 case iAbout:
  528.                     HandleAboutApp() ;    
  529.                     break ;
  530.                                 
  531.                 default:
  532.                     GetMenuItemText(GetMenuHandle(mApple), menuItem, daName);
  533.                     (void) OpenDeskAcc(daName);
  534.                     break;
  535.             }
  536.             break;
  537.         //
  538.         //--------------------------------------------------------------------------    
  539.         //
  540.         case mFile:
  541.             switch ( menuItem ) {
  542.                 case iNew:
  543.                     // display the contents
  544.                     (void)MyCreateViewerWindow() ;
  545.                     break ;
  546.                 
  547.                 case iOpen:
  548.                     // Get the file name to open
  549.                     StandardGetFile( nil, numTypes, myTypes, &theSFReply ) ;
  550.                     
  551.                     // did the user cancel, if not open the file?
  552.                     if(theSFReply.sfGood)
  553.                         MySendOpenDoc(&theSFReply.sfFile) ;
  554.  
  555.                     break ;
  556.                     
  557.                     
  558.                 case iRevert:
  559.                 
  560.                     // we know this can't be called as long as there
  561.                     // is an app window open (MyAdjustMenus) so get the refcon
  562.                     // from the front window and get the FSSpec from that
  563.                     theWindow = FrontWindow() ;
  564.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  565.                     theFile = (**myData).theFile ;
  566.                     
  567.                     // open the file and read it back into the viewer
  568.                     err = FSpOpenDF( &theFile, fsRdPerm, &theRef ) ;
  569.                     if (err == noErr)
  570.                     {
  571.                         theViewer = (**myData).theViewer ;
  572.                         Q3ViewerUseFile(theViewer, theRef) ;
  573.                         err = FSClose(theRef) ;
  574.                     }
  575.                     GetPort( &savedPort ) ;
  576.                     SetPort((GrafPtr)theWindow) ;
  577.                     InvalRect( &theWindow->portRect ) ;
  578.                     SetPort( savedPort ) ;
  579.                     break ;        
  580.                             
  581.                 case iSave:                
  582.                 
  583.                     // we know this can't be called as long as there
  584.                     // is an app window open (MyAdjustMenus) so get the refcon
  585.                     // from the front window and get the FSSpec from that
  586.                     theWindow = FrontWindow() ;
  587.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  588.                     theFile = (**myData).theFile ;
  589.                     theViewer = (**myData).theViewer ;
  590.  
  591.                     // assumes the original file still exists
  592.                     err = FSpOpenDF(&theFile, fsWrPerm, &theRef);
  593.                     if (err == noErr)
  594.                     {
  595.                         Q3ViewerWriteFile(theViewer, theRef);
  596.                         err = FSClose(theRef);
  597.                     }
  598.                     break ;
  599.                 
  600.                 case iSaveAs:
  601.                     // we know this can't be called as long as there
  602.                     // is an app window open (MyAdjustMenus) so get the refcon
  603.                     // from the front window and get the FSSpec from that
  604.                     theWindow = FrontWindow() ;
  605.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  606.                     theViewer = (**myData).theViewer ;
  607.  
  608.                     StandardPutFile("\pSave model as:", "\pUntitled", &theSFReply);
  609.                     if (theSFReply.sfGood)
  610.                     {
  611.                         err = FSpOpenDF(&theSFReply.sfFile, fsWrPerm, &theRef);
  612.                         if (err != noErr)
  613.                         {
  614.                             err = FSpCreate(&theSFReply.sfFile, '????', '3DMF', theSFReply.sfScript);
  615.                             if (err == noErr)
  616.                                 err = FSpOpenDF(&theSFReply.sfFile, fsCurPerm, &theRef);
  617.                         }
  618.                         if (err == noErr)
  619.                         {
  620.                             Q3ViewerWriteFile(theViewer, theRef);
  621.                             err = FSClose(theRef);
  622.                         }
  623.                         
  624.                         // set up our record of the file location,
  625.                         // update the structure
  626.                         theWindow = FrontWindow() ;
  627.                         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  628.                         theViewer = (**myData).theViewer ;
  629.                         (**myData).theFile = theSFReply.sfFile ;
  630.                         (**myData).isFileValid = true ;
  631.                         
  632.                         // reset the window title
  633.                         SetWTitle( theWindow, theSFReply.sfFile.name );
  634.                     }
  635.                     break;                
  636.                 
  637.                 case iClose:
  638.                     MyDisposeViewerWindow ( FrontWindow() );
  639.                     break ;
  640.                     
  641.                 case iQuit:
  642.                     MySendQuitApp();
  643.                     break;
  644.             }
  645.             break;
  646.             
  647.             
  648.         //
  649.         //--------------------------------------------------------------------------    
  650.         //
  651.         case mEdit:
  652.             // display the contents
  653.             theWindow = FrontWindow() ;
  654.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  655.             theViewer = (**myData).theViewer ;
  656.             switch(menuItem)
  657.             {
  658.                 case iCut:
  659.                     Q3ViewerCut(theViewer);
  660.                     break;
  661.                 case iCopy:
  662.                     Q3ViewerCopy(theViewer);
  663.                     break;
  664.                 case iPaste:
  665.                     Q3ViewerPaste(theViewer);
  666.                     break;
  667.                 case iClear:
  668.                     Q3ViewerClear(theViewer);
  669.                     break;
  670.                 default:
  671.                     break;
  672.             }
  673.             break; 
  674.  
  675.     }
  676.     HiliteMenu(0);        // Unhighlight whatever MenuSelect or MenuKey hilited
  677. }
  678.  
  679. //--------------------------------------------------------------------------------------------
  680. //
  681. //
  682. void MyAdjustMenus( void ) 
  683. {
  684.     WindowPtr            theWindow ;
  685.     ViewerDataHandle    myData ;
  686.     MenuHandle            theMenu ;
  687.  
  688.     theWindow = FrontWindow() ;
  689.     
  690.     
  691.     if( theWindow != nil ) {
  692.     
  693.         theMenu =  GetMenuHandle ( mFile ) ;
  694.         
  695.         EnableItem ( theMenu, iClose );
  696.         EnableItem ( theMenu, iSaveAs );
  697.                  
  698.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  699.         
  700.          if(    (**myData).isFileValid) {
  701.             EnableItem ( theMenu, iSave );
  702.             EnableItem (theMenu, iRevert );
  703.          }
  704.          else {
  705.             DisableItem ( theMenu, iSave );
  706.             DisableItem ( theMenu, iRevert );
  707.          
  708.          }
  709.          
  710.          EnableItem ( GetMenuHandle ( mEdit ), 0 );
  711.  
  712.     }
  713.     else {
  714.  
  715.         theMenu =  GetMenuHandle ( mFile ) ;
  716.  
  717.         DisableItem ( theMenu, iClose );
  718.         DisableItem ( theMenu, iRevert );
  719.         DisableItem ( theMenu, iSave );
  720.         DisableItem ( theMenu, iSaveAs );
  721.         
  722.         DisableItem ( GetMenuHandle ( mEdit ), 0 );
  723.     }
  724.     
  725.     // we don't support undo
  726.     DisableItem ( GetMenuHandle ( mEdit ), iUndo );
  727.     
  728.     DrawMenuBar() ;
  729. }
  730.  
  731.  
  732. //--------------------------------------------------------------------------------------------
  733. //
  734. //
  735. OSErr    MyDisposeViewerWindow( WindowPtr theWindow )
  736. {
  737.     TQ3ViewerObject     theViewer ;
  738.     ViewerDataHandle    myData ;
  739.     
  740.     if( theWindow == nil)
  741.         return paramErr ;
  742.  
  743.     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  744.     theViewer = (**myData).theViewer ;
  745.     
  746.     DisposeHandle((Handle)myData);
  747.     DisposeWindow(theWindow);
  748.     
  749.     MyAdjustMenus() ;
  750.     return     Q3ViewerDispose(theViewer);
  751. }
  752.  
  753.  
  754. //--------------------------------------------------------------------------------------------
  755. //
  756. //
  757. CGrafPtr MyCreateViewerWindow(  )
  758. {
  759.  
  760.     Rect                theRect ;
  761.     GrafPtr                savedPort ;
  762.     TQ3ViewerObject        myViewerObj ;
  763.     WindowPtr            theWindow ;
  764.     ViewerDataHandle    myData = (ViewerDataHandle)NewHandle(sizeof(ViewerData)) ;
  765.     
  766.     GetPort( &savedPort ) ;
  767.         
  768.     // set the new rect up with a stagger for multiple windows
  769.     SetRect(    &theRect, 
  770.                 gStaggerPos.h, 
  771.                 gStaggerPos.v, 
  772.                 gStaggerPos.h + kWindowWidth, 
  773.                 gStaggerPos.v + kWindowHeight );
  774.  
  775.     gStaggerPos.h += 16 ;
  776.     gStaggerPos.v += 16 ;        // this is not "real staggering code, it don't wrap ;        
  777.                          
  778.     theWindow  = NewCWindow(    nil, 
  779.                                 &theRect, 
  780.                                 "\pUntitled", 
  781.                                 false, 
  782.                                 documentProc, 
  783.                                 (WindowPtr)-1, 
  784.                                 true, 
  785.                                 0L );    
  786.                     
  787.     SetPort( (GrafPtr)theWindow ) ;
  788.     
  789.     // set up the viewer object here
  790.     myViewerObj = Q3ViewerNew ((CGrafPtr)theWindow,  &theWindow->portRect,  kQ3ViewerDefault) ; 
  791.     
  792.     //stuff the reference to the viewer in the RefCon field of the Window
  793.     (**myData).theViewer = myViewerObj ;
  794.     (**myData).isFileValid = false ;
  795.     SetWRefCon( theWindow, (long)myData );
  796.     
  797.     // make sure it is visible
  798.     ShowWindow( theWindow ) ;
  799.     
  800.     // invalidate the content region of the window - 
  801.     // we don't do any drawing to it here.
  802.     InvalRect ( &theRect );
  803.     SetPort( savedPort ) ;
  804.     
  805.     return (CGrafPtr)theWindow ;
  806. }
  807.  
  808.  
  809. //-----------------------------------------------------------------------
  810. // returns true if the platform supports appleevents - we won't run
  811. // if it doesn't
  812.  
  813. Boolean SupportsAEVT(void)
  814. {
  815.     OSErr err;
  816.     long response;
  817.         
  818.     err = Gestalt(gestaltAppleEventsAttr,&response);
  819.     if (err!=noErr)
  820.         return false;
  821.         
  822.     return (response && (response << gestaltAppleEventsPresent));
  823. }
  824.  
  825. //-----------------------------------------------------------------------
  826. // called to register our appleevent handlers
  827.  
  828. void RegisterMyEvents(void)
  829. {
  830.     OSErr err;
  831.     
  832.     if (!SupportsAEVT())
  833.         return;
  834.     
  835.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenApplication,NewAEEventHandlerProc(MyAEHandleOAPP),0L,false);
  836.     if (err!=noErr)
  837.         return;
  838.                 
  839.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenDocuments,NewAEEventHandlerProc(MyAEHandleODOC),0L,false);
  840.     if (err!=noErr)
  841.         return;
  842.                 
  843.     err = AEInstallEventHandler(kCoreEventClass,kAEPrintDocuments,NewAEEventHandlerProc(MyAEHandlePDOC),0L,false);
  844.     if (err!=noErr)
  845.         return;
  846.                 
  847.     err = AEInstallEventHandler(kCoreEventClass,kAEQuitApplication,NewAEEventHandlerProc(MyAEHandleQUIT),0L,false);
  848.     if (err!=noErr)
  849.         return;
  850. }
  851.  
  852. //-----------------------------------------------------------------------
  853. // open application event handler for the core event suite, 
  854. // by default we just want a blank new document
  855.  
  856. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  857. {
  858.     // we don't actually do anything on open - you could,
  859.     // for example you might want to open a blank untitled 
  860.     // window
  861.     
  862. #pragma unused (theAppleEvent, reply, refCon)
  863.     OSErr err = noErr ;
  864.     return err;
  865. }
  866.  
  867.  
  868. //-----------------------------------------------------------------------
  869. // handler for the open document appleevent handler
  870.  
  871. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  872. {
  873. #pragma unused ( reply, refCon )
  874.     FSSpec         myFSS;
  875.     AEDescList    docList;
  876.     OSErr        err,
  877.                 ignoreErr;
  878.     long        index,
  879.                 itemsInList;
  880.     Size         actualSize;
  881.     AEKeyword    keywd;
  882.     DescType    returnedType;
  883.  
  884.     
  885.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  886.     if (err == noErr) {
  887.     
  888.         // see how many descriptor items are in the list
  889.         // this is the number of documents we want to open
  890.         err = AECountItems(&docList,&itemsInList);
  891.  
  892.         // now get each descriptor record from the list
  893.         // coerce the returned data to an FSSpec record, and
  894.         // open the asoociated file
  895.         
  896.         for (index=1; index <= itemsInList && err == noErr; index++) {
  897.         
  898.             err = AEGetNthPtr(    &docList, 
  899.                                 index,
  900.                                 typeFSS,
  901.                                 &keywd,
  902.                                 &returnedType,
  903.                                 (Ptr)&myFSS,
  904.                                 sizeof(myFSS),
  905.                                 &actualSize);
  906.     
  907.             if (err == noErr)    {
  908.             
  909.                 FInfo        fndrInfo ;
  910.                 
  911.                 // we now have a valid FSSpec to reference the file, we need to know 
  912.                 // what type the file is to determine which file open function to call
  913.                 // we can determine this from the finder info for the file
  914.                 
  915.                 err = FSpGetFInfo( &myFSS, &fndrInfo );    
  916.                 
  917.                 // if we got that ok, then we switch on the file  
  918.                 // type (we don't care about the creator type)    
  919.                         
  920.                 if (err == noErr)    {
  921.                 
  922.                     switch( fndrInfo.fdType ) {
  923.                         case 'TEXT':
  924.                         case '3DMF':
  925.                             err =  HandleOpenDoc(&myFSS);
  926.                             break ;
  927.                     }
  928.                 }
  929.             }
  930.         }
  931.         ignoreErr = AEDisposeDesc(&docList);
  932.     }
  933.     return err ;
  934. }
  935.  
  936. //-----------------------------------------------------------------------
  937. // handler for the print document event handler
  938.  
  939. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  940. {
  941. #pragma unused ( reply, refCon )
  942.     FSSpec         myFSS;
  943.     AEDescList    docList;
  944.     OSErr        err;
  945.     long        index,
  946.                 itemsInList;
  947.     Size         actualSize;
  948.     AEKeyword    keywd;
  949.     DescType    returnedType;
  950.  
  951.     
  952.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  953.     if (err == noErr) {
  954.     
  955.         // see how many descriptor items are in the list
  956.         // this is the number of documents we want to open
  957.         err = AECountItems(&docList,&itemsInList);
  958.  
  959.         // now get each descriptor record from the list
  960.         // coerce the returned data to an FSSpec record, and
  961.         // open the asoociated file
  962.         
  963.         for (index=1; index <= itemsInList && err == noErr; index++) {
  964.         
  965.             err = AEGetNthPtr(    &docList, 
  966.                                 index,
  967.                                 typeFSS,
  968.                                 &keywd,
  969.                                 &returnedType,
  970.                                 (Ptr)&myFSS,
  971.                                 sizeof(myFSS),
  972.                                 &actualSize);
  973.     
  974.             if (err == noErr)    {                    
  975.                 // err = HandlePrintDoc( &myFSS );
  976.                 err = errAEEventNotHandled ;         // we don't do this yet...
  977.             }
  978.         }
  979.         err = AEDisposeDesc(&docList);
  980.     }
  981.     return err ;
  982. }
  983.  
  984. //-----------------------------------------------------------------------
  985. // quit appleevent handler
  986.  
  987. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  988. {
  989. #pragma unused ( theAppleEvent, reply, refCon )
  990.     OSErr             err = noErr ;        // used as return value
  991.     WindowPtr        theWindow ;
  992.     Boolean            quitting = true ;
  993.  
  994.     
  995.     // close all windows and signal to Quit
  996.  
  997.         
  998.     // attempt to close all documents
  999.     while(( theWindow = FrontWindow()) != nil && quitting )
  1000.         quitting = (MyDisposeViewerWindow( theWindow ) == noErr);    
  1001.         
  1002.  
  1003.     // if we closed everything up successfully, we can return noErr, otherwise
  1004.     // indicate to sender of the 'quit' aevt that we canceled
  1005.     
  1006.     if (quitting) {
  1007.         gQuitFlag = true;                    // user didn't cancel
  1008.          AEDisposeDesc(&gSelfAddress);        // Dispose of my self-addressed descriptor.
  1009.     }
  1010.     else {
  1011.         err = userCanceledErr ;
  1012.     }
  1013.             
  1014.     return err ;
  1015. }
  1016.  
  1017.  
  1018. //----------------------------------------------------------------------------------//
  1019. //    Send a Quit Application Apple Event to myself to terminate this app.        
  1020.  
  1021. void MySendQuitApp( void )
  1022. {
  1023.     AppleEvent    myAppleEvent, reply;
  1024.     
  1025.     //    Create the Apple Event.
  1026.     FailIfErr(AECreateAppleEvent( kCoreEventClass, 
  1027.                                   kAEQuitApplication, 
  1028.                                   &gSelfAddress,
  1029.                                   kAutoGenerateReturnID, 
  1030.                                   kAnyTransactionID, 
  1031.                                   &myAppleEvent));
  1032.                                   
  1033.     //    Send the Apple Event.
  1034.       FailIfErr(AESend( &myAppleEvent, 
  1035.                         &reply, 
  1036.                         kAENoReply+kAENeverInteract, 
  1037.                         kAENormalPriority,
  1038.                         kAEDefaultTimeout, 
  1039.                         nil, 
  1040.                         nil));
  1041.                         
  1042.       AEDisposeDesc(&myAppleEvent);                // Dispose of the Apple Event.
  1043. } // MySendQuitApp
  1044.  
  1045.  
  1046. //----------------------------------------------------------------------------------//
  1047. //    Send a Open Document Application Apple Event to myself to open a document.        
  1048.  
  1049. void MySendOpenDoc(FSSpec *myFSSpec)
  1050. {
  1051.      AppleEvent    myAppleEvent;
  1052.     AppleEvent    defReply;
  1053.     AEDescList    docList;
  1054.     OSErr         ignoreErr;
  1055.     
  1056.     myAppleEvent.dataHandle = nil;
  1057.     docList.dataHandle  = nil;
  1058.     defReply.dataHandle = nil;
  1059.         
  1060.     // Create empty list and add one file spec
  1061.     FailIfErr(AECreateList(nil,0,false, &docList));
  1062.     
  1063.     FailIfErr(AEPutPtr(&docList,1,typeFSS,(Ptr)myFSSpec,sizeof(FSSpec)));
  1064.         
  1065.     FailIfErr(AECreateAppleEvent(    kCoreEventClass,
  1066.                                     kAEOpenDocuments,
  1067.                                     &gSelfAddress,
  1068.                                     kAutoGenerateReturnID,
  1069.                                     kAnyTransactionID,
  1070.                                     &myAppleEvent));
  1071.  
  1072.     // Put Params into our event and send it
  1073.  
  1074.     FailIfErr(AEPutParamDesc( &myAppleEvent,
  1075.                               keyDirectObject,
  1076.                               &docList));
  1077.  
  1078.     FailIfErr(AESend( &myAppleEvent,
  1079.                       &defReply,
  1080.                       kAENoReply+kAENeverInteract,
  1081.                       kAENormalPriority,
  1082.                       kAEDefaultTimeout,
  1083.                       nil,
  1084.                       nil));
  1085.         
  1086.         
  1087.     if (myAppleEvent.dataHandle) 
  1088.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  1089.         
  1090.     if (docList.dataHandle) 
  1091.         ignoreErr = AEDisposeDesc(&docList);
  1092.             
  1093. }    // MySendOpenDoc 
  1094.